#
# base class for XY display
#
# 2009, Mike Widner <mikewidner@gmail.com>
#
############

package Fangcheng::XY;

use 5.006001;
use strict;
use warnings;
use vars qw( $AUTOLOAD @ISA );

require Fangcheng;

@ISA = qw( Fangcheng );
my $VERSION = '0.01';

# iterate to the next stage for display
sub nextStage {
	my ($self) = shift;
	$self->stage( $self->stage + 1 );
}

1;